function [mode, objf, objgrd, user] = obj_MLE(mode, n, theta, objgrd, nstate,user)

mat1=user.mat1;

[log_like,log_like_deriv]=find_log_like(theta,mat1);

objf=-log_like;
objgrd=-log_like_deriv;

	%
